object MainDialog: TMainDialog Left = 146 Top = 154 BorderStyle = bsDialog Caption = 'Main Dialog' ClientHeight = 381 ClientWidth = 592 Font.Color = clBlack Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] PixelsPerInch = 120 Position = poScreenCenter TextHeight = 16 object Bevel1: TBevel Left = 8 Top = 0 Width = 581 Height = 65 Style = bsRaised end object Label1: TLabel Left = 168 Top = 8 Width = 414 Height = 51 Caption = 'These demos display some of Printit'#39's unique printing abilities.' + ' They were specifically created out of user demand to answer que' + 'stions on Printit and show the more advanced topics' Font.Color = clPurple Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Printit: TLabel Left = 24 Top = 8 Width = 117 Height = 38 Caption = 'Printit' Font.Color = clYellow Font.Height = -33 Font.Name = 'Times New Roman' Font.Style = [fsBold, fsItalic] ParentFont = False end object Label2: TLabel Left = 32 Top = 44 Width = 78 Height = 16 Caption = 'Version 5.1' end object Panel1: TPanel Left = 12 Top = 76 Width = 485 Height = 297 TabOrder = 0 object Label3: TLabel Left = 12 Top = 8 Width = 445 Height = 36 Alignment = taCenter Caption = 'The source for each demo is in the form # printed next to them e' + '.g. Demo 01 is in unit FDemo01, Demo 10 is in unit FDemo10' Font.Color = clBlue Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False WordWrap = True end object ListBox1: TListBox Left = 12 Top = 52 Width = 461 Height = 233 Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ItemHeight = 17 Items.Strings = ( '01 Actual Font Styles and Sizes - As supplied by the Printer Dri' + 'ver ' '02 Multiple TPanel components - Combined size larger than page' '03 Printing the Active Page on a TNotebook' '04 Print a Window' '05 Print Invoice #1 - View or direct to printer' '06 Print a form with Fishes from a Table' '07 Combined Window and Grid Print ' '08 Grid Print' '09 Grid and Window on same page - View and Direct Print to print' + 'er' '10 Print current Printer Information' '11 Print Fonts of currently selected printer' '12 Simple Pie Chart' '13 Print a few shapes' '14 A Fax Form example' '15 Various components printed' '16 Print Grid backdrops' '17 Print Invoice # 2' '18 Print a customised letter' '' '' '') ParentFont = False TabOrder = 0 OnDblClick = ListBox1DblClick end end object View: TButton Left = 504 Top = 120 Width = 85 Height = 33 Caption = '&View' Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = ViewClick end object Exit: TButton Left = 503 Top = 260 Width = 86 Height = 33 Caption = '&Exit' Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = ExitClick end object Printer: TButton Left = 504 Top = 76 Width = 85 Height = 33 Caption = 'Set &Printer' Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = PrinterClick end object PrinterSetupDialog1: TPrinterSetupDialog Left = 512 Top = 316 end end